home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 0022-3.564 / dmg-0143 / stuff / ste_sam / ste_sam.lst < prev   
File List  |  1997-04-16  |  1KB  |  44 lines
  1. ' STE SAMPLE REPLAY ROUTINES FOR GFA BASIC
  2. ' Adapted by P.Bramwell for Big Night Out Mag#1
  3. ' Original code Microdeal
  4. '
  5. '
  6. Dim B%(30000/4)                               ! Reserve  K for sample
  7. Sample%=Varptr(B%(0))
  8. Bload "data\vic.sam",Sample%                  ! Load sample in
  9. Length%=30000                                 ! Set length of sample
  10. Dma%=&HFF8901
  11. Spoke Dma%,0                                  ! Reset the DMA chip to 0
  12. '
  13. Spoke Dma%+32,&H81                            ! Set sample rate, 1 mono channel
  14. '
  15. '
  16. Spoke Dma%+2,Sample%/&H10000                  ! Start and End addresses
  17. Spoke Dma%+4,Sample%/&H100
  18. Spoke Dma%+6,Sample% And &HFF
  19. Spoke Dma%+8,Sample%/&H10000
  20. Spoke Dma%+&HA,Sample%/&H100
  21. Spoke Dma%+&HC,Sample% And &HFF
  22. Spoke Dma%+&HE,(Sample%+Length%)/&H10000
  23. Spoke Dma%+&H10,(Sample%+Length%)/&H100
  24. Spoke Dma%+&H12,(Sample%+Length%) And &HFF
  25. '
  26. Spoke Dma%,1                                  ! Play sample
  27. For N%=0 To 50
  28.   Vsync
  29. Next N%
  30. '
  31. For Speed%=0 To 3                             ! Replays sample 6.2,12.5,25 Khz
  32.   Print "Speed of sample is: ";Speed%
  33.   Spoke Dma%+32,&H80+Speed%
  34.   '
  35.   Spoke Dma%,3                                ! Loops DMA to go on and on
  36.   For N%=0 To 100
  37.     Vsync
  38.   Next N%
  39. Next Speed%
  40. '
  41. Spoke Dma%,0                                  ! Kills DMA
  42. '                                             ! Leave out for interuppt
  43. '                                             ! sample play
  44.